home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #10 / uv1n10s1.d64 / mission jupiter (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  22KB  |  654 lines
  1. 5 poke53281,0:poke53280,11:print""
  2. 6 clr:gosub21
  3. 7 print"   [201]t is the year 2056.  [217]our spaceship"
  4. 8 print"crash-landed on [202]upiter when searching"
  5. 9 print"for signs of life on the planet's"
  6. 10 print"surface.  [206]ow, you must find a way to"
  7. 11 print"get back to earth!":print
  8. 12 print"   [201]n this text adventure game, you must";
  9. 13 print"type in two word commands to solve each"
  10. 14 print"puzzle.  [211]ome examples are '[212][193][203][197] [211][213][201][212]',"
  11. 15 print"'[197][216][193][205][201][206][197] [199][204][207][194]', and '[197][193][212] [198][207][207][196]'.  [201]n"
  12. 16 print"some cases, you may use one word"
  13. 17 print"commands such as '[201][206][214][197][206][212][207][210][217]' and '[204][207][207][203]'.":gosub 20001
  14. 18 poke 198,0:print"[208]lease enter your first name:"
  15. 19 lt=25:gosub10000:gosub1900:na$=ph$:if na$="" then print"[145]";:goto 19
  16. 20 forz=1to25:print:nextz:goto45
  17. 21 print"[147]"tab(12)"[205][201][211][211][201][207][206]: [202]upiter"
  18. 25 print"[159]    [208]rogrammed by [196]avid [204]. [211]udarsky
  19. 35 [153]"sys (NULL)ublished by (NULL)oftdisk (NULL)ublishing, right$nc.
  20. 41 return
  21. 45 na$=chr$(asc(left$(na$,1))or 128)+right$(na$,len(na$)-1)
  22. 50 lo=1
  23. 55 on lo goto11000,11050,11100,11150,11200,11250,11300,11350,11400,11450,11500
  24. 60 onlo-11goto11550,11600,11650,11700,11750,11800,11850,11900,11950,12000,12050
  25. 65 onlo-22goto12100,12150,12200,12250,12300,12350,12400,12450,12500,12550
  26. 69 gosub 20300
  27. 70 print:le$="":ri$=""
  28. 98 print"[215]hat will you do, "na$"?"
  29. 100 lt=37:gosub10000
  30. 102 gosub 1900
  31. 105 kw=0
  32. 110 if ph$=""then print"[145][145]":goto100
  33. 111 mm=len(ph$)
  34. 112 if mm<7 then ph$=ph$+" ":goto111
  35. 113 print
  36. 115 le$=left$(ph$,3)
  37. 117 if le$="n  "orle$="s  "orle$="e  "orle$="w  "then1000
  38. 120 if le$="hel" then gosub 2000:goto70
  39. 125 if le$="qui"then 22000
  40. 130 nn=1
  41. 135 if mid$(ph$,nn,1)=" "thenri$=mid$(ph$,nn+1,3)
  42. 140 if mid$(ph$,nn,1)=" "andleft$(ri$,1)<>" "then155
  43. 142 if mid$(ph$,nn,1)=" "andleft$(ri$,1)=" "then146
  44. 145 if nn<mm then nn=nn+1:goto135
  45. 146 if le$="loo"then 55
  46. 147 if le$="inv"then20400
  47. 150 print"[194]y itself, [158]"ph$:print"cannot be acted on.":goto70
  48. 155 ifle$="kil"orle$="fig"orle$="kic"orle$="pun"orle$="att"thenkw=1:goto1100
  49. 160 ifle$="pre"andri$="but"andlo=30thenbt=1:print"[207].[203].":goto70
  50. 165 ifle$="go "orle$="mov"orle$="cli"orle$="run"orle$="wal"thenkw=1:goto1000
  51. 170 ifle$="tak"orle$="get"orle$="ste"orle$="lif"thenkw=1:goto1200
  52. 175 ifle$="dro"orle$="put"orle$="pla"orle$="thr"thenkw=1:goto1300
  53. 180 ifle$="rea"thenkw=1:goto1400
  54. 185 ifle$="exa"orle$="loo"thenkw=1:goto1500
  55. 190 ifle$="giv"orle$="don"orle$="off"thenkw=1:goto1600
  56. 195 ifle$="tal"orle$="spe"thenkw=1:goto1700
  57. 200 ifle$="eat"orle$="dri"orle$="swa"thenkw=1:goto1800
  58. 205 z=int(rnd(1)*3)
  59. 210 ifz=0thenprint"[201]t would not be wise to";
  60. 215 ifz=1thenprint"[201] don't think you should";
  61. 220 ifz=2thenprint"[201] don't know how to";
  62. 225 print"[158] "ph$""
  63. 230 goto70
  64. 999 rem ****moving routine****
  65. 1000 if le$="n  "then el=1
  66. 1005 if le$="s  "then el=2
  67. 1010 if le$="e  "then el=3
  68. 1015 if le$="w  "then el=4
  69. 1020 if ri$="nor"thenel=1
  70. 1025 if ri$="sou"thenel=2
  71. 1030 if ri$="eas"thenel=3
  72. 1035 if ri$="wes"thenel=4
  73. 1040 ifel=0 and ri$<>"cyl"then 205
  74. 1041 ifel=3andgu=0andlo=32thenprint"[212]he guard won't let you pass.":goto70
  75. 1042 ifel=1andlo=26thenprint"[158][193] forcefield blocks your passage.":goto70
  76. 1043 ifel=2andlo=25thenprint"[158][193] forcefield blocks your passage.":goto70
  77. 1044 ifel=2andlo=1andin(1)<>1andin(2)<>1andin(3)<>1andin(4)<>1andin(5)<>1then1046
  78. 1045 goto1050
  79. 1046 print"[193]s soon as you step out, the harsh"
  80. 1048 print"atmosphere [150]crushes your skeleton.  [217]ou"
  81. 1049 print"are  [196][197][193][196]. ":goto22000
  82. 1050 ifri$="cyl"andlo=31then23000
  83. 1051 if ma(lo,el)=0 then print"[217]ou can't go that way!"
  84. 1052 if ma(lo,el)=0 then el=0:goto70
  85. 1055 lo=ma(lo,el):el=0:goto55
  86. 1099 rem ****kill routine****
  87. 1100 z=int(rnd(1)*3)
  88. 1105 if z=0 then print"[201]t's not nice to be violent."
  89. 1110 if z=1 then print"[201] know you are too kind to do that."
  90. 1115 if z=2 then print"[207]uch!  [217]ou missed and hurt yourself!"
  91. 1120 goto 70
  92. 1199 rem ****take routine****
  93. 1200 fl=0
  94. 1220 forz=1to5
  95. 1225 if in(z)<>0 then fl=fl+1
  96. 1230 nextz
  97. 1235 iffl=5thenprint"[217]ou are already carrying your maximum"
  98. 1236 iffl=5thenprint"of five objects.":goto70
  99. 1237 if ri$="cry"andlo=30thenprint"[201]t is stuck!":goto70
  100. 1240 ifri$="shi"orri$="ves"orri$="dom"orri$="tab"orri$="rob"orri$="cyl"then1245
  101. 1241 ifri$="con"orri$="pic"then1246
  102. 1242 ifri$="ali"orri$="gua"then1247
  103. 1243 ifri$="boo"andlo=28thenprint"[212]he alien won't let you take them.":goto70
  104. 1244 goto 1250
  105. 1245 print"[201]t's far too heavy!":goto70
  106. 1246 print"[201]t's attached tightly!":goto70
  107. 1247 print"[212]he alien resists and thinks you're an":print"idiot!":goto70
  108. 1250 if ma(lo,5)=0andma(lo,6)=0andma(lo,7)=0andma(lo,8)=0then1252
  109. 1251 goto 1253
  110. 1252 print"[201] see nothing to pick up.":goto70
  111. 1253 d1$="":d2$="":d3$="":d4$="":ob=0
  112. 1255 d1$=left$(ob$(ma(lo,5)),3)
  113. 1256 d2$=left$(ob$(ma(lo,6)),3)
  114. 1257 d3$=left$(ob$(ma(lo,7)),3)
  115. 1258 d4$=left$(ob$(ma(lo,8)),3)
  116. 1260 if ri$=d1$ then ob=ma(lo,5):ma(lo,5)=0
  117. 1261 if ri$=d2$ then ob=ma(lo,6):ma(lo,6)=0
  118. 1262 if ri$=d3$ then ob=ma(lo,7):ma(lo,7)=0
  119. 1263 if ri$=d4$ then ob=ma(lo,8):ma(lo,8)=0
  120. 1265 z=1
  121. 1267 if in(z)=0 then in(z)=ob:goto1270
  122. 1268 if z<5 then z=z+1:goto1267
  123. 1270 if ob>0 then print"[217]ou now have the "o1$(ob)".":goto1275
  124. 1272 print"[201] don't see it here."
  125. 1275 goto70
  126. 1299 rem ****drop routine****
  127. 1300 fl=0
  128. 1301 for z=1 to 5
  129. 1302 if in(z)<>0 then fl=1
  130. 1303 nextz
  131. 1304 if fl=0 then print"[217]ou are not carrying anything.":goto70
  132. 1310 if ri$="cry"andlo=30then21000
  133. 1311 ifma(lo,5)<>0andma(lo,6)<>0andma(lo,7)<>0andma(lo,8)<>0 then 1314
  134. 1312 goto 1316
  135. 1314 print"[201] don't recommend dropping that here.":goto70
  136. 1316 d$="":d=0
  137. 1318 for z=1 to 10
  138. 1320 if left$(ob$(z),3)=ri$ then d$=ob$(z):d=z
  139. 1322 nextz
  140. 1324 if d$=""then print"[217]ou don't have it.":goto70
  141. 1326 for z=1 to 5
  142. 1328 if in(z)=d then in(z)=0
  143. 1330 nextz
  144. 1335 if ri$="cry"andlo=30andgc>0thenprint"[207].[203].":goto70
  145. 1350 if ma(lo,5)=0 then ma(lo,5)=d:goto1356
  146. 1352 if ma(lo,6)=0 then ma(lo,6)=d:goto1356
  147. 1354 if ma(lo,7)=0 then ma(lo,7)=d:goto1356
  148. 1355 if ma(lo,8)=0 then ma(lo,8)=d
  149. 1356 ifd=1ord=3ord=4ord=7ord=8ord=9then1365
  150. 1358 if le$="dro" then print"[217]ou have dropped them."
  151. 1359 if le$="put" then print"[217]ou have put them down."
  152. 1360 if le$="pla" then print"[217]ou have placed them on the ground."
  153. 1361 if le$="thr" then print"[215]ith a mighty heave, you throw them"
  154. 1362 if le$="thr" then print"away."
  155. 1363 goto70
  156. 1365 if le$="dro" then print"[217]ou have dropped it."
  157. 1366 if le$="put" then print"[217]ou have put it down."
  158. 1367 if le$="pla" then print"[217]ou have placed it on the ground."
  159. 1368 if le$="thr" then print"[215]ith a mighty heave, you throw it away."
  160. 1369 goto70
  161. 1399 rem ****read routine****
  162. 1400 fl=0:xx=0:yy=0:zz=0:for z=1 to 5
  163. 1401 if in(z)=4 then fl=1:xx=1
  164. 1402 if in(z)=5 then fl=1:yy=1
  165. 1403 if in(z)=9 then fl=1:zz=1
  166. 1404 nextz
  167. 1406 if fl=0 then print"[217]ou are not holding anything which you"
  168. 1408 if fl=0 then print"can read.":goto70
  169. 1409 d=0:for z=1 to 10
  170. 1410 if left$(ob$(z),3)=ri$ then d$=ob$(z):d=z
  171. 1412 nextz
  172. 1414 if xx=1 and d=4 then1420
  173. 1415 if yy=1 and d=5 then1430
  174. 1416 if zz=1 and d=9 then1460
  175. 1417 print"[217]ou don't have it.":goto70
  176. 1420 print"[212]he identification card reads:":print
  177. 1422 print"[217][203][211][210][193][196][213][211]  obmoc  64738":goto70
  178. 1430 print"[197]ach coin says:":print
  179. 1432 print"*100* tebla":goto70
  180. 1460 print"[212]he four page program is filled with a"
  181. 1462 print"bunch of alien mumbo-jumbo.  [217]ou"
  182. 1464 print"obviously don't understand the strange"
  183. 1466 print"language.":goto70
  184. 1499 rem ****examine routine****
  185. 1500 forz=1 to 10
  186. 1502 if left$(ob$(z),3)=ri$ then 1530
  187. 1504 nextz
  188. 1506 print"[217]ou see nothing special.":goto70
  189. 1530 d$=ob$(z):d=z
  190. 1532 fl=0:forz=1to5
  191. 1534 if in(z)=d then fl=1
  192. 1536 nextz
  193. 1537 if fl=1 then 1540
  194. 1538 ifd=1ord=3ord=4ord=7ord=8ord=9thenprint"[217]ou don't have it.":goto70
  195. 1539 ifd=2ord=5ord=6ord=10thenprint"[217]ou don't have them.":goto70
  196. 1540 if d=1 then print"[217]ou notice that it fits quite tightl